unit Ean13Bas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ppDB, ppTxPipe, ppModule, raCodMod, ppPrnabl, ppClass, ppCtrls,
  ppBarCod, ppCache, ppBands, ppComm, ppRelatv, ppProd, ppReport, Buttons,
  StdCtrls, ppParameter, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, cxDropDownEdit, cxFontNameComboBox, siComp;

type
  TfmEan13Bas = class(TForm)
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label9: TLabel;
    Label1: TLabel;
    Label11: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    kolonsayisik: TEdit;
    ilkbarkodk: TEdit;
    Orank: TEdit;
    KacAdetK: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    ppReport1: TppReport;
    ppDetailBand1: TppDetailBand;
    ppTextPipeline1: TppTextPipeline;
    field1: TppField;
    ChkArtan: TCheckBox;
    ppParameterList1: TppParameterList;
    Label3: TLabel;
    Label6: TLabel;
    Sol: TEdit;
    Ust: TEdit;
    Label12: TLabel;
    edAraBosluk: TEdit;
    Label13: TLabel;
    ComboBox2: TComboBox;
    ppBarCode1: TppBarCode;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmEan13Bas: TfmEan13Bas;

implementation

uses ana1;

{$R *.dfm}

procedure TfmEan13Bas.Button1Click(Sender: TObject);
var F: TextFile;
  i: integer;
  say: integer;
begin
  i := 0;

  AssignFile(F, 'C:\Dikbarkod.txt');
  Rewrite(F);


  //Say:=strtoint(ilkbarkodk.text);

  while I <= strtoint(KacAdetK.Text) - 1 do begin
    writeln(F, ilkbarkodk.text);
    inc(i);

    if ChkArtan.Checked then Say := Say + 1;

  end;

  closefile(f);


  ppTextPipeline1.FileName := 'C:\Dikbarkod.txt';
  ppBarCode1.Data := ilkbarkodk.Text;
  if ComboBox1.Text = 'Evet' then
   // ppBarCode1.PrintHumanReadable := true
  else
   // ppBarCode1.PrintHumanReadable := false;

    ppDetailBand1.Height := strtoint(edAraBosluk.text);

  //ppBarCode1.WideBarRatio := strtoint(Orank.text);
  //ppBarCode1.BarWidth := strtofloat(edit2.text);
  //ppBarCode1.Width := strtoint(edit4.text);
  //ppBarCode1.height := strtoint(edit5.text);

  ppreport1.columns := strtoint(kolonsayisik.Text);


  //ppbarcode1.Left := StrToFloat (sol.Text);
  //ppbarcode1.top := StrToFloat (Ust.Text);
  ppreport1.Print;
end;

procedure TfmEan13Bas.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TfmEan13Bas.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  fmEan13Bas := nil;
end;

end.
